home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / tmbnk201.zip / CONVERT.CMD next >
OS/2 REXX Batch file  |  1993-03-03  |  517b  |  16 lines
  1. /* Once you use this delete so it doesn't get ran again accidently */
  2. today = DATE('S')-1
  3. oldfile='timebank.bak'
  4. bankfile='timebank.dat'
  5. 'ren' bankfile oldfile
  6. position=1
  7. DO UNTIL (acct='')
  8.       acct=CHARIN(oldfile,position,36)
  9.       position=position+36
  10.       banktime=CHARIN(oldfile,position,1)
  11.       position=position+1
  12.       banktime=c2d(banktime)
  13.       if acct > '' then okfile= LINEOUT(bankfile, STRIP(acct,,'00'x) today banktime 0 0 0)
  14. end /* do */
  15. CALL LINEOUT(bankfile)
  16. CALL LINEOUT(oldfile)